home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / c / amivogl-1.03.lzh / vogl / examples / fmoretx2.for < prev    next >
Encoding:
Text File  |  1991-08-29  |  2.5 KB  |  165 lines
  1.     program moret2
  2.  
  3. $INCLUDE: 'fvogl.h'
  4. $INCLUDE: 'fvodevic.h'
  5.  
  6.     call winope('moretxt2', 8)
  7.  
  8.     call unqdev(INPUTC)
  9.     call qdevic(KEYBD)
  10.  
  11.     call hfont('futura.l', 8)
  12.     call htexts(0.03, 0.04)
  13.  
  14.     call ortho2(0.0, 1.0, 0.0, 1.0)
  15.  
  16.  
  17.     call color(RED)
  18.     call clear()
  19.  
  20.  
  21.     call drawst()
  22.  
  23. c     Now do it all with the text rotated .... 
  24.  
  25.     call htexta(45.0)
  26.     call drawst
  27.  
  28.     call htexta(160.0)
  29.     call drawst()
  30.  
  31.     call htexta(270.0)
  32.     call drawst
  33.  
  34. c     Now with a single character 
  35.  
  36.     call htexta(0.0)
  37.     call drwst2()
  38.  
  39.     call htextang(45.0)
  40.     call drwst2()
  41.  
  42.     call htextang(160.0)
  43.     call drwst2()
  44.  
  45.     call htextang(270.0)
  46.     call drwst2()
  47.  
  48.     call gexit()
  49.     end
  50.  
  51.     subroutine drawst
  52. #ifdef SGI
  53. #include "fgl.h"
  54. #else
  55. #include "fvogl.h"
  56. #endif
  57.  
  58.     integer *2 val
  59.  
  60.     call color(BLACK)
  61.     call rectf(0.1, 0.1, 0.9, 0.9)
  62.     call color(WHITE)
  63.     call move2(0.1, 0.5)
  64.     call draw2(0.9, 0.5)
  65.     call move2(0.5, 0.1)
  66.     call draw2(0.5, 0.9)
  67.  
  68.     call color(GREEN)
  69.     call move2(0.5, 0.5)
  70.     call hleftj(.true.)
  71.     call hchars('This is Left Justified text', 27)
  72.  
  73.     idum = qread(val)
  74.  
  75.     call color(BLACK)
  76.     call rectf(0.1, 0.1, 0.9, 0.9)
  77.     call color(WHITE)
  78.     call move2(0.1, 0.5)
  79.     call draw2(0.9, 0.5)
  80.     call move2(0.5, 0.1)
  81.     call draw2(0.5, 0.9)
  82.  
  83.     call color(YELLOW)
  84.     call move2(0.5, 0.5)
  85.     call hcente(.true.)
  86.     call hchars('This is Centered text', 21)
  87.     call hcente(.false.)
  88.  
  89.     idum = qread(val)
  90.  
  91.     call color(BLACK)
  92.     call rectf(0.1, 0.1, 0.9, 0.9)
  93.     call color(WHITE)
  94.     call move2(0.1, 0.5)
  95.     call draw2(0.9, 0.5)
  96.     call move2(0.5, 0.1)
  97.     call draw2(0.5, 0.9)
  98.  
  99.     call color(MAGENT)
  100.     call move2(0.5, 0.5)
  101.     call hright(.true.)
  102.     call hchars('This is Right Justified text', 28)
  103.     call hright(.false.)
  104.  
  105.     idum = qread(val)
  106.  
  107.     end
  108.  
  109.     subroutine drwst2
  110. #ifdef SGI
  111. #include "fgl.h"
  112. #else
  113. #include "fvogl.h"
  114. #endif
  115.     integer *2 val
  116.  
  117.     call color(BLACK)
  118.     call rectf(0.1, 0.1, 0.9, 0.9)
  119.     call color(WHITE)
  120.     call move2(0.1, 0.5)
  121.     call draw2(0.9, 0.5)
  122.     call move2(0.5, 0.1)
  123.     call draw2(0.5, 0.9)
  124.  
  125.     call color(GREEN)
  126.     call move2(0.5, 0.5)
  127.     call hleftj(.true.)
  128.     call hdrawc('B')
  129.  
  130.     idum = qread(val)
  131.  
  132.     call color(BLACK)
  133.     call rectf(0.1, 0.1, 0.9, 0.9)
  134.     call color(WHITE)
  135.     call move2(0.1, 0.5)
  136.     call draw2(0.9, 0.5)
  137.     call move2(0.5, 0.1)
  138.     call draw2(0.5, 0.9)
  139.  
  140.     call color(YELLOW)
  141.     call move2(0.5, 0.5)
  142.     call hcente(.true.)
  143.     call hdrawc('B')
  144.     call hcente(.false.)
  145.  
  146.     idum = qread(val)
  147.  
  148.     call color(BLACK)
  149.     call rectf(0.1, 0.1, 0.9, 0.9)
  150.     call color(WHITE)
  151.     call move2(0.1, 0.5)
  152.     call draw2(0.9, 0.5)
  153.     call move2(0.5, 0.1)
  154.     call draw2(0.5, 0.9)
  155.  
  156.     call color(MAGENT)
  157.     call move2(0.5, 0.5)
  158.     call hright(.true.)
  159.     call hdrawc('B')
  160.     call hright(.false.)
  161.  
  162.     idum = qread(val)
  163.     
  164.     end
  165.